dim doc
set doc = Application.ActiveDocument
dim objs,obj
set objs = doc.GetObjects(ppcbObjectTypeLabel,, true) 
dim ismark : ismark = false
for each obj in objs
	if ismark = false then	
		x = obj.PositionX
		y = obj.PositionY
		ismark=true
	else
		obj.PositionX(, ppcbOriginTypeDesign) = x
		'obj.PositionY(, ppcbOriginTypeDesign) = y
	end if
next
